Решение к заданию 1:

Итоговый код процедуры может быть таким:

Public Sub ForNextSub()

For i = 1 To 10

MsgBox i

Next

End Sub

или таким :

Public Sub ForNextSub2()

Dim i As Integer

i = 1

Do While i <= 10

MsgBox i

i = i + 1

Loop

End Sub

Решение к заданию 2:

Итоговый код процедуры ForEachSub() может быть таким:

Public Sub ForEachSub()

For Each oWord In ThisDocument.Words

MsgBox oWord.Text

Next

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)